(easy-menu-change): Handle case of no keywords.

diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el
index ec8c8cd488f4e5e9c2c7a90948628d8afbd1c8f3..e92f31568c68ecff64a07df6c08e7a9bd90fc1a6 100644 (file)
--- a/lisp/emacs-lisp/easymenu.el
+++ b/lisp/emacs-lisp/easymenu.el
@@ -186,7 +186,7 @@ shadow\\(Double\\)?Etched\\(In\\|Out\\)\\(Dash\\)?\\)\\)$"
      ((vectorp item)
       (setq name (setq item-string (aref item 0)))
       (setq command (easy-menu-make-symbol (aref item 1) t))
-      (let ((active (aref item 2))
+      (let ((active (if (> (length item) 2) (aref item 2) t))
            (count 2)
            style selected)
        (if (and (symbolp active) (= ?: (aref (symbol-name active) 0)))